home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Xtras
/
progdisk.d64
/
boat
(
.txt
)
next >
Wrap
Commodore BASIC
|
2009-02-07
|
6KB
|
229 lines
8 POKE 53281,0:POKE 53280,0
9 PRINT:PRINT:PRINTCHR$(142)
10 PRINT" .[144]"
11 PRINT" .[144] .[144] [158][221] \[146][169] ."
12 PRINT" .[144] .[144] [158][221][223][146][144] .[144]"
13 PRINT" .[144] [158][221] [223][146][144]"
14 PRINT" [169][146][158][221] [223][146][144] [158][209][144]"
15 PRINT" .[144] [169] [146][158][221] [223][146][144] .[144]"
16 PRINT" .[144] [169] [146][158][221] [223][146][144] .[144]"
17 PRINT" [169] [146][158][221] [223][146][144]"
18 PRINT" .[144] [169] [146][158][221] [223][146][144] .[144]"
19 PRINT" [169] [146][158][221] [223][146][144]"
20 PRINT" .[144] [169] [158]WHIZ [146][158][221] [158]KIDS [223][146][144]"
21 PRINT" [169] [146][158][221] [223][146][144]"
22 PRINT" [169] [146][158][221][223][146][197][197][197][197][197][197][197][197][197][144] .[144]"
23 PRINT" [169] [158] [209] [209] [209] [209] [146]"
24 PRINT" [223][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][146]"
25 PRINT" [223] [146][169]"
26 PRINT"[196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196]"
27 PRINT"[196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196]"
28 PRINT"[196][196][196] [196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196]"
30 PRINT:PRINT" SMOOTH SAILING"
45 REM -REVTUN- AN ORIGINAL COMPOSITION BY D.RITTER
50 K=32
55 S=54272:DIMF(96):D=20
100 DATA37,77,56,0,1,1
105 DATA25,77,56,0,0,0
110 DATA37,77,56,0,2,0
115 DATA25,68,54,0,2,2
120 DATA37,65,53,0,1,1
125 DATA25,65,53,0,0,0
130 DATA37,65,53,0,0,0
135 DATA25,65,61,0,0,2
140 DATA39,78,61,0,1,1
145 DATA27,78,61,0,0,0
150 DATA39,78,61,0,2,0
155 DATA27,75,53,0,2,2
160 DATA39,70,54,0,1,1
165 DATA27,70,54,0,0,0
170 DATA39,70,54,0,0,0
175 DATA27,70,54,0,0,0
180 DATA44,72,63,0,1,1
185 DATA32,72,63,0,0,0
190 DATA44,72,63,0,2,0
195 DATA32,73,61,0,2,2
200 DATA44,75,60,0,1,1
205 DATA32,75,60,0,0,0
210 DATA44,75,60,0,0,0
215 DATA32,66,63,0,2,2
220 DATA37,68,63,0,1,1
225 DATA25,68,63,0,0,0
230 DATA37,68,63,0,0,0
235 DATA25,68,51,0,0,2
240 DATA37,65,61,0,1,1
245 DATA25,65,61,0,0,0
250 DATA37,65,61,0,0,0
255 DATA25,65,61,0,0,0
260 DATA65,65,46,1,2,2
265 DATA63,63,34,1,2,2
270 DATA61,61,46,1,2,2
275 DATA60,60,34,1,2,2
280 DATA58,58,46,1,2,2
285 DATA61,61,34,1,2,2
290 DATA66,66,46,1,2,2
295 DATA70,70,34,1,2,2
300 DATA63,63,44,1,2,2
305 DATA61,61,32,1,2,2
310 DATA60,60,44,1,2,2
315 DATA58,58,32,1,2,2
320 DATA56,56,44,1,2,2
325 DATA53,53,32,1,2,2
330 DATA63,63,44,1,2,2
335 DATA68,68,32,1,2,2
340 DATA61,61,42,1,2,2
345 DATA60,60,30,1,2,2
350 DATA58,58,42,1,2,2
355 DATA56,56,30,1,2,2
360 DATA54,54,42,1,2,2
365 DATA58,58,30,1,2,2
370 DATA61,61,42,1,2,2
375 DATA65,65,30,1,2,2
380 DATA63,63,44,1,2,2
385 DATA61,61,32,1,2,2
390 DATA60,60,44,1,2,2
395 DATA58,58,32,1,2,2
400 DATA56,56,44,1,2,2
405 DATA58,58,32,1,2,2
410 DATA60,60,44,1,2,2
415 DATA63,63,44,1,2,2
420 DATA65,65,46,1,2,2
425 DATA63,63,34,1,2,2
430 DATA61,61,46,1,2,2
435 DATA60,60,34,1,2,2
440 DATA58,58,46,1,2,2
445 DATA61,61,34,1,2,2
450 DATA66,66,46,1,2,2
455 DATA70,70,34,1,2,2
460 DATA63,63,44,1,2,2
465 DATA61,61,32,1,2,2
470 DATA60,60,44,1,2,2
475 DATA58,58,32,1,2,2
480 DATA56,56,44,1,2,2
485 DATA53,53,32,1,2,2
490 DATA63,63,44,1,2,2
495 DATA68,68,32,1,2,2
500 DATA61,61,42,1,2,2
505 DATA60,60,30,1,2,2
510 DATA58,58,42,1,2,2
515 DATA56,56,30,1,2,2
520 DATA54,54,42,1,2,2
525 DATA58,58,30,1,2,2
530 DATA61,61,42,1,2,2
535 DATA65,65,30,1,2,2
540 DATA63,63,44,1,2,2
545 DATA61,61,32,1,2,2
550 DATA60,60,44,1,2,2
555 DATA58,58,32,1,2,2
560 DATA56,56,44,1,1,1
565 DATA56,56,44,1,0,0
570 DATA56,56,44,1,0,0
575 DATA56,56,44,1,0,0
580 DATA37,77,56,0,1,1
585 DATA25,77,56,0,0,0
590 DATA37,77,56,0,2,0
595 DATA25,68,54,0,2,2
600 DATA37,65,53,0,1,1
605 DATA25,65,53,0,0,0
610 DATA37,65,53,0,0,0
615 DATA25,65,61,0,0,2
620 DATA39,78,61,0,1,1
625 DATA27,78,61,0,0,0
630 DATA39,78,61,0,2,0
635 DATA27,75,53,0,2,2
640 DATA39,70,54,0,1,1
645 DATA27,70,54,0,0,0
650 DATA39,70,54,0,0,0
655 DATA27,70,54,0,0,0
660 DATA44,72,63,0,1,1
665 DATA32,72,63,0,0,0
670 DATA44,72,63,0,2,0
675 DATA32,73,61,0,2,2
680 DATA44,75,60,0,1,1
685 DATA32,75,60,0,0,0
690 DATA44,75,60,0,0,0
695 DATA32,66,63,0,2,2
700 DATA37,68,63,0,1,1
705 DATA25,68,63,0,0,0
710 DATA37,68,63,0,0,0
715 DATA25,68,51,0,0,2
720 DATA37,65,61,0,1,1
725 DATA25,65,61,0,0,0
730 DATA37,65,61,0,0,0
735 DATA25,65,61,0,0,0
740 DATA99,99,99,1,2,2
9000 F1=253.18:FORI=1TO96:F(I)=F1*2^(1/12):F1=F(I):NEXT
9005 FORI=0TO28:POKES+I,0:NEXT
9010 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=14:S3=15
9015 R1=12:R2=12:R3=12:GOTO9170
9020 IFK=32THENK=96 :GOTO9070
9025 IFK=96THENK=128:GOTO9080
9030 IFK=128THENK=160:RESTORE:GOTO9090
9035 IFK=160THENK=224:GOTO9100
9040 IFK=224THENK=257 :GOTO9110
9045 IFK=64THENK=64 :GOTO9120
9050 IFK=64THENK=64 :GOTO9130
9055 IFK=64THENK=64 :GOTO9140
9060 IFK=64THENK=64 :GOTO9150
9065 IFK=30THENK=64 :GOTO9160
9070 W1=64:W2=64:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9075 R1=11:R2=11:R3=10:GOTO9170
9080 W1=16:W2=32:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=14:S2=14:S3=15
9085 R1=12:R2=12:R3=14:GOTO9170
9090 W1=16:W2=16:W3=64:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9095 R1=10:R2=10:R3=14:GOTO9170
9100 W1=32:W2=32:W3=64:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=10:S2=10:S3=15
9105 R1=11:R2=11:R3=14:GOTO9170
9110 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9115 R1=14:R2=12:R3=12:GOTO9170
9120 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9125 R1=10:R2=10:R3=14:GOTO9170
9130 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9135 R1=10:R2=10:R3=14:GOTO9170
9140 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9145 R1=10:R2=10:R3=14:GOTO9170
9150 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9155 R1=10:R2=10:R3=14:GOTO9170
9160 W1=64:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
9165 R1=10:R2=10:R3=14:GOTO9170
9170 FORI=0TO2:T=I*7:POKES+3+T,8:POKES+2+T,0:NEXTI
9175 POKES+24,L
9180 X1=A1*16+D1:Y1=S1*16+R1
9185 POKES+5,X1:POKES+6,Y1
9190 POKES+4,8:POKES+4,0
9195 X2=A2*16+D2:Y2=S2*16+R2
9200 POKES+12,X2:POKES+13,Y2
9205 POKES+11,8:POKES+11,0
9210 X3=A3*16+D3:Y3=S3*16+R3
9215 POKES+19,X3:POKES+20,Y3
9220 POKES+18,8:POKES+18,0
9225 READA,B,C,P,Q,Q1
9230 IFA=99ORA=-1THEN9355
9235 IFP1=1THEN9260
9240 POKES,F(A)-256*INT(F(A)/256)
9245 POKES+1,F(A)/256
9250 POKES+4,W1+1
9255 IFP=1THEN9280
9260 IFQ=0THEN9280
9262 POKES+11,W2+1
9265 POKES+7,F(B)-256*INT(F(B)/256)
9270 POKES+8,F(B)/256
9280 IFQ1=0THEN9300
9282 POKES+18,W3+1
9285 POKES+14,F(C)-256*INT(F(C)/256)
9290 POKES+15,F(C)/256
9300 POKES+4,W1
9305 IFQ=1ORQ=0THEN9315
9310 POKES+11,W2
9315 IFQ1=1ORQ1=0THEN9325
9320 POKES+18,W3
9325 FORI=1TOD:NEXT
9330 TC=TC+1
9335 IFTC=KTHENGOTO9020
9340 IFP=1THENP1=1-P1:GOTO9225
9345 P1=0
9350 GOTO9225
9355 IFA=99THENFORI=1TO50*D:NEXT:FORI=0TO28:POKES+I,0:NEXT
9500 RUN
9999 END